com_pantalla EQU 0B800
tam_pantalla EQU 4000

DATOS		SEGMENT
TEXTO		DB "BUSES Y PERIFERICOS. EUI.",13,10, "TITULACION DE INGENIRO TECNICO DE SISTEMAS",13,10,'$'
TEXTE		DB "AMIGOS Y AMIGAS, BIENVENIDOS A LAS PRACTICAS DE BUSES Y PERIFERICOS",13,10,'S'
DATOS		ENDS

PILA		SEGMENT
		DB 127 DUP('P')
apuntador	DB 'P'
PILA		ENDS

CODIGO SEGMENT
		ASSUME CS:CODIGO, DS:DATOS, SS:PILA

borrar_pantalla PROC
		PUSH ES
		PUSH AX
		PUSH CX
		PUSH DI
		PUSHF
		MOV AX, com_pantalla
		MOV ES,AX
		MOV CX, (tam_pantalla/2)+1
		MOV DI, tam_pantalla
		MOV AL, '-'
		MOV AH, 07h
		STD
		REP STOSW
		POPF
		POP DI
		POP CX
		POP AX
		POP ES
		RET
		ENDP

todo_es_empezar:
		
		MOV AX, DATOS
		MOV DS, AX
		MOV AX, PILA
		MOV SS, AX
		MOV SP, OFFSET apuntador	
		MOV AH,09h
		MOV DX, OFFSET TEXTO
		INT 21h
		CALL borra_pantalla


NO:		MOV AH,09h
		MOV DX, OFFSET TEXTE
		INT 21h
f:		MOV AH, 4Ch
		INT 21h

CODIGO ENDS
END		todo_es_empezar